home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 February / PCWorld_2006-02_cd.bin / software / vyzkuste / tnt / tnt.exe / {app} / plugins / Thumbnails.ttp < prev    next >
INI File  |  2005-03-15  |  2KB  |  84 lines
  1. [SETTINGS]
  2. category=Windows Tweaks::Explorer::Thumbnails
  3. Caption=Thumbnails
  4. version=1.0
  5. OSVERSION=XP,2003
  6. #=By default, Windows creates thumbnails for each pictures in every folder you view using Explorer.
  7. #=The first option can be used to disable thumbnail creation.
  8. #=\n
  9. #=Use the second option to control how big the thumbnail should be. The third option controls its quality.
  10. #=\n\n
  11. #=The default value for ThumbnailQuality is 90, the default value for ThumbnailSize is 96. Keep in mind that higher quality and larger thumbnails require more disk space, which is not usually a problem, but they also take longer to display.
  12. #=\nNote:Changing the quality does not affect thumbnails that already exist on the file system.
  13.  
  14. Author=
  15. optionexplicit=0
  16.  
  17. [INTERFACE]
  18. type=multi
  19. Text0=Enable Creating Thumbnails
  20. TYPE0=check
  21. Text1=Size (pixels)
  22. TYPE1=spin
  23. style1=32,255
  24. Text2=Quality
  25. type2=slider
  26. style2=50,100
  27.  
  28.  
  29. [SCRIPT]
  30. dim strkey1,strkey2,strkey3
  31. strkey1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\DisableThumbnailCache"
  32. strkey2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\ThumbnailSize" 
  33. strkey3="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\ThumbnailQuality"
  34.  
  35. Sub OnInit() 
  36. dim i
  37. i=RegReadValue(strkey1)
  38. if i=0 or IsEmpty(i)=true then CheckItem 0,true
  39.  
  40.  s=RegReadValue(strkey2)
  41. if IsEmpty(s) then s = "96"
  42.  SetItemText 1,s
  43.  s=RegReadValue(strkey3)
  44. if IsEmpty(s) then s = "90"
  45.  SetItemText 2,s
  46.  
  47. End Sub
  48.  
  49. Sub OnApply(x,y)
  50. dim i
  51.  
  52.  if IsItemChecked(0)=true then
  53.     RegDeleteVal strkey1
  54.  else
  55.     RegWriteValue strkey1,1,2
  56.  end if
  57.  
  58.  
  59.  i=GetItemText(1)
  60.  if len(i)>0 then 
  61.     RegWriteValue strkey2,i,2
  62.  else
  63.     RegDeleteVal strkey2
  64.  end if
  65.  
  66.  i=GetItemText(2)
  67.  if len(i)>0 then 
  68.     RegWriteValue strkey3,i,2
  69.  else
  70.     RegDeleteVal strkey3
  71.  end if
  72.  
  73.  Logoff
  74. End Sub
  75.  
  76. Sub OnEvent(x,y)
  77. If IsItemChecked(0) then
  78. EnableItem 1,true
  79. EnableItem 2,true
  80. else
  81. EnableItem 1,false
  82. EnableItem 2,false
  83. end if
  84. End Sub